perm filename CYCMR2.LSP[4,LMM] blob sn#037484 filedate 1973-05-06 generic text, type T, neo UTF8

(DEFPROP CYCMR2FNS
 (CYCMR2FNS (AND LOADING
		 (SETQ T22
		       (FOR NEW
			    X
			    IN
			    (PRINT (CATALOG3 (QUOTE (4.))))
			    FOR
			    NEW
			    Y
			    IN
			    (LABEL1 (QUOTE (NODES 1. 2. 3. 4.)) 2. X)
			    AS
			    NEW
			    Z
			    IS
			    (COPYSTRUC (LSTRUC Y))
			    XLIST
			    (CONNECT (FINDCTE (CAR (NODENUMS (LABELED Y))) Z)
				     (FINDCTE (CADR (NODENUMS (LABELED Y))) Z))
			    Z)))
	    T41
	    (DEFLIST (QUOTE ((C 4.) (N 3.) (I 1.) (CL 1.) (BR 1.) (F 1.) (S 2.) (P 5.) (O 2.) (SI 4.) (H 1.)))
		     (QUOTE VALENCE)))
VALUE)

(AND LOADING
     (SETQ T22
	   (FOR	NEW
		X
		IN
		(PRINT (CATALOG3 (QUOTE (4.))))
		FOR
		NEW
		Y
		IN
		(LABEL1 (QUOTE (NODES 1. 2. 3. 4.)) 2. X)
		AS
		NEW
		Z
		IS
		(COPYSTRUC (LSTRUC Y))
		XLIST
		(CONNECT (FINDCTE (CAR (NODENUMS (LABELED Y))) Z) (FINDCTE (CADR (NODENUMS (LABELED Y))) Z))
		Z)))

(DEFPROP T41
 (T41 (STRUC ((CTE 1. (NIL) 2. 3. 4. 5.)
	      (CTE 2. (NIL) 1. 3. 5.)
	      (CTE 3. (NIL) 1. 2. 4.)
	      (CTE 4. (NIL) 1. 3. 5.)
	      (CTE 5. (NIL) 1. 2. 4.))
	     T41KITE
	     5.
	     NIL)
      (STRUC ((CTE 1. (NIL) 2. 2. 4. 5.)
	      (CTE 2. (NIL) 1. 1. 3.)
	      (CTE 3. (NIL) 2. 4. 5.)
	      (CTE 4. (NIL) 1. 3. 5.)
	      (CTE 5. (NIL) 1. 3. 4.))
	     T41SCOOP
	     5.
	     NIL)
      (STRUC ((CTE 1. (NIL) 2. 4. 5. 5.)
	      (CTE 2. (NIL) 1. 3. 3.)
	      (CTE 3. (NIL) 2. 2. 4.)
	      (CTE 4. (NIL) 1. 3. 5.)
	      (CTE 5. (NIL) 1. 1. 4.))
	     T41FAN
	     5.
	     NIL)
      (STRUC ((CTE 1. (NIL) 2. 2. 5. 5.)
	      (CTE 2. (NIL) 1. 1. 3.)
	      (CTE 3. (NIL) 2. 4. 4.)
	      (CTE 4. (NIL) 3. 3. 5.)
	      (CTE 5. (NIL) 1. 1. 4.))
	     T41RING
	     5.
	     NIL)
      (STRUC ((CTE 1. (NIL) 2. 3. 4. 5.)
	      (CTE 2. (NIL) 1. 3. 3.)
	      (CTE 3. (NIL) 1. 2. 2.)
	      (CTE 4. (NIL) 1. 5. 5.)
	      (CTE 5. (NIL) 1. 4. 4.))
	     T41HOURGLASS
	     5.
	     NIL))
VALUE)

(DEFLIST (QUOTE ((C 4.) (N 3.) (I 1.) (CL 1.) (BR 1.) (F 1.) (S 2.) (P 5.) (O 2.) (SI 4.) (H 1.)))
	 (QUOTE VALENCE))